﻿Public Class FrmCambiarClave

    Private Sub btnSalir_Click(sender As Object, e As EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub

    Private Sub FrmCambiarClave_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.lblNombreUsu.Text = gestorProcesos.getNombreUsuario()

        Dim FotoUser As Image = gestorProcesos.getFotoUsuario()
        If Not (FotoUser Is Nothing) Then
            Me.picFoto.Image = FotoUser
        End If
    End Sub

    Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        Dim Validador As New ValidadorDeFormularios(Me, ErrorProvider1)
        If Not Validador.ValidarFormulario() Then
            Return
        End If

        If Not Validador.ValidarClaveSegura(Me.txtStrNewClave) Then
            Return
        End If

        If Not txtStrNewClave.Text.Equals(txtStrConfirmClave.Text) Then
            Me.ErrorProvider1.SetError(txtStrNewClave, "Las claves no coinciden")
            Me.ErrorProvider1.SetError(txtStrConfirmClave, "Las claves no coinciden")
            Return
        End If
        With Me.ErrorProvider1
            .SetError(txtStrClave, "")
            .SetError(txtStrNewClave, "")
            .SetError(txtStrConfirmClave, "")
        End With

        If gestorProcesos.CambiarContraseña(Me.txtStrClave.Text, Me.txtStrNewClave.Text) Then
            MsgBox("La Contraseña fue cambiada satisfactoriamente.", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Cambio de Contraseña")
            txtStrClave.Text = ""
            txtStrConfirmClave.Text = ""
            txtStrNewClave.Text = ""
        Else
            MsgBox("La Contraseña Actual no es correcta.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Cambio de Contraseña")
        End If
        Me.txtStrClave.Focus()
    End Sub
End Class